eata^ 


OmniFORTH 

Installation 


INTERACTIVE COMPUTER SYSTEMS, INC. 
6403 DIMARCO ROAD • TAMPA, FLORIDA 33614 



First Edition 1979 

All rights reserved. Reproduction or use, without express 
permision, of editorial or pictorial content, in any manner 
is prohibited. No patent liability is assumed with respect 
to the use of the information contained herein. While every 
precaution has been taken in the preparation of this manual, 
the publisher assumes no responsibility for errors or 
omissions. Neither is any liability assumed for damages from 
the use of the information contained herein. 

©Copyright 1979, 

Interactive Computer Systems, Inc. 

6403 DiMarco Rd. Tampa, FI 33614 



OmniFORTH CONTENTS 


Interactive CorftPUter Systems^ Inc. 


0 OmniFQRTH INSTRLLiRTION 


0.1 Master Disk Protection . ... . . . . . . . 

0.2 File System . . . .... . . . - « - « • • • 

0.2.1 Master Disk Copy on Multi~Dri',^ Systems . . . 

0.2.2 Master Disk Copy on SirKSle Drive Systems . . 

0.2.3 Copyina DOS and Utilities on VOUR FORTH Disk 
0.3 Reconfigure System . . . . . . . . . . • • • 

0.3.1 Chanains the Backspace Input Character . . . 

0.3.2 Enablina the Control C and ?TERMINflL . . . . 

0.3.3 Reconfigure Memory Size <MfiP> . . . . ... . 

0.3.4 Precompiled User Screens . . .... . . . . 

0.3.5 Remo*v»ina Precompiled Words . . . . . . . . . 

0.3.6 OmniFORTH Precompiled Screens . . ... . . . 

0.4 Source Listinas for OmniFORTH . . . ... . . 

0.4.1 Index for OmniFORTH Screens 25 thru 59 . . . 

0.4.2 Listina of Screens 25 thru 59 .. ...... 


0-1 

0-1 

0-2 

0-2 

0-4 

0-5 

0-6 

0-7 

0-8 

0-10 

0-11 

0-11 

0-12 

0-13 

0-14 











Interactive CtomFuter Sy^ Inc. OtnniFORTH INSTRLLfiTION 0-1 


0.1 Master Disk Protection 

Do not remove the protect tab on the master disk. The roaster 
disk should be copied to another work disk be'Tore attemptind 
to use OroniFORTH. Vou maw ro^e copies of this software 
provided that such copies are used only on the computer 
designated on the Software License Rareement. 

Save the oriainal master disk in a safe place and never 
record or alter it in anw way. The master disk will be 
re-=iuested from you when we supply updates and new releases 
of OrftniFORTH. To qualify for updates and revisions* however> 
re-=iuires that the sianed Software License flareeroent be on 
file with Interactive Computer Systems^ Inc. We must be 
able to read the master disk and validate your serial number 
before any new software can be shipped. 


0.2 File System 

OmniFORTH uses a file system that partions the disk into 
areas called screens with 1024 bytes per screen. Screens «^e 
phsically allocated on the disk startina with screen 0 beina 
the first 1024 bytes on the disk. FORTH does not raaintain a 
disk directory of file names on disk. FORTH computes the 
track and sector re-=iuired for disk access as a furiction of 
screen number arid allows the user to acess any part of the 
disk. The user is aiven complete control of every byte of 
disk storaae. 

OmniFORTH for the North Star supports the followina screen 
numbers! 

Derisity Drive 1 Drive 2 Drive 3 Drive 4 

Sinale 0 : 86 87:173 174:260 261:347 

Double 0 : 174 175:348 349:522 523:696 

Ouad 0 ! 348 349:696 697:1044 1045:1392 

Note: FORTH will return to DOS if you attempt to access a 
screen that is not avaiable. Make sure drive is reach# and 
on—line before accessina multiple drives. 

Screens 0 thru 24 have been reserved for you to install the 
new OmniFORTH object proararri FORTH^ your DOS. and any 
utilities that you may need such as CF. CD. etc. 

Note: We do not supply the North Star DOS or any utilities 
on the master disk. Vou will have to copy your version to 
the workina master copy. OmniFORTH will interface with your 
North Star DOS and you must have DOS on the system dri«v»e 
before you can boot arid re<=iuest FORTH to be executed. 
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0.2.1 Master Disk Copy on Multi-Drive Systems 

Making a backup copy of the master disk is simple for users 
with more than one disk drive: 

1> Insert a disk with your North Star DOS ar»d copy disk 
utility CD in drive 1, 

2> Place a spare disk in drive 2. 

3> Initialise spare disk by typing! IN 2 

4^“ Start CD <copy disk utility^ by enterin:^: GO CD 1 2 

5.> Remove your North Star DOS disk, from drive 1 and 
replace it with the OmniFORTH master disk. Press 
carriage return to continue the disk copy. 

6> Remove the master disk and save it in a safe Place. 

The disk on drive 2 is your workind copy of OmniFORTH. 


0.2.2 Master Disk Copy on Sindle Drive Systems 

Making a backup copy of the master disk takes a little more 
effort for users with only one disk drive: 

1> Brins up your North Star DOS usins drive 1. 

2> Remove the DOS disk and replace it with your OmniFORTH 
master disk. 

35 List the directory by typins: LI 
For sinsle density you should see: 


######«« 

4 

0 S 

0 


-• 

4 

32 S 

0 


FORTH 

36 

64 S 

1 

2D00 

SCR25-39 

100 

60 S 

0 


SCR40-49 

160 

40 S 

0 


SCR50-59 

200 

40 S 

0 


For double density you 

should Si 

######## 

4 

0 D 

0 


—-- 

4 

2S D 

0 


FORTH 

IS 

64 D 

1 

2D00 

SCR25-39 

50 

60 D 

0 


SCR40-49 

89 

40 D 

0 


SCR50-59 

100 

40 D 

0 
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Th© first. Til© shown as ######## is t,h© serial number of 
your new OmniFORTH disK. Do not. alter this serial number in 
any way as it will be re-=iuired if you need updates or haue 
«ju©stions about your software. 

The second file shown as ———-— is used as a separator to 

allocate disk space for you to copy a few of your North Star 
utitites like CD.' CF> etc. This separator also keeps the 
followinsi files in place if you accidently compact CO this 
disk. 

FORTH is the executable prodram that starts at memory 
location 2D00 hex. 

The files SCR25-39.. SCR40-49.' arid SCR50-59 are for the 
conuience of the sindl© driu© user. They are allocated so 
that they cover screens 25 throudh 59 which is OmniFORTH 
source code supplied with this release. 

4> Remove the OmniFORTH master and place a spare in drive. 

55 Ini tal ize the spare disH. by typinds IN 

Create the files <in the sarri© place> that listed in 
step 3 and set the file type for FORTH. 

For sindle densitys 

CR FORTH 64 36 
TV FORTH 1 2D00 

CR SCR25-39 60 10© 

CR SCR40-49 40 160 
CR SCR50-59 40 200 

For double density! 

CR FORTH 64 IS 
Tr’ FORTH 1 2D00 

CR SCR25-39 60 50 
CR SCR40~49 40 S0 
CR SCR50-59 40 100 

7> Vou are now ready to copy the files between the 
OmniFORTH master and the spar© disk usind LF <Load 
Flle> and SF <Save Fil©^ DOS commands. The files to be 
copied are FORTH.* SCR25—39.* SC.R40—49.' and SCR50--59. 
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For each "Tile to be copied! 

Place master disk in drive and load file into memory 
usina LF. 

2> Replace with spare and use SF to write out file. 

The following is an e.xample of an actual copy: 


LF FORTH 2D00 
SF FORTH 2D00 
LF SCR25-39 2D00 
SF SCR25-39 2 D 00 
LF SCR40-49 2D00 
SF SCR40-49 2 D 00 
LF SCR50-59 2D00 
SF SCR50-39 2D00 


Note that the disks were swapped between each cofmfiand. 

The atove procedure only copies areas of the disk with data 
supplied by ICS. the user will have to expand or alter the 
procedure to meet his arowind needs. 


0.2.3 Copyina DOS and Utilities on Vour FORTH Disk 

Notes We do not supply the North Star DOS or any utilities 
on the master disk. Vou will have to copy your version to 
the workina master copy. OmniFORTH will interface with your 
North Star DOS and you must have DOS on the system drive 
before you can boot and re<=iuest FORTH to be executed. 


It is desirable to have DOS and utilities such as CF..CD., 
etc. on your OmniFORTH workina disk. ICS provides space 
between the directory and FORTH for this purpose. The file 
separator —— ^ 33 . heen provided to allocate an area bia 

enouah to hold a few North Star utilities. 

The CF "Ccopy file utility^ will not work for this purpose.- 
since your disk already has files on it and the DOS must 
start in sector 4 . 

Use CR <create file> from DOS usina the optional start 
address <see DOS manual)' and TV <Ctype file). After the files 
are created and typed, you wiay use the CF utility or DOS 
commands LF and SF to copy the fi1es over. 
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0.3 Reconfigure System 

OmniFORTH provides a table that is used to configure the 
system at cold start entry <standard entry>. Rn assembly 
listina of this table is aiven below. 


2De0 

2028 

2000 

2010 

2016 

E800 

2022 

2000 

2000 

2000 


K<«« 

NORTH 

STfiR SYSTEM 

: JUMP TRBLE CONSTANTS 

DOS 

EQU 

2028H 

V' 

# 

SOFT DOS RE-ENTRV 

COUT ' 

EQU 

200DH 

• 

J 

CHAR OUTPUT 

CIN 

EQU 

2010H 

w 

3 

CHAR INPUT 

CONTC 

EQU 

2016H 

• 

3 

CONTROL 'C' ROUTINE 

BOOT 

EQU 

0E800H 

• 

3 

HARD DOS RE-B-4TRV 

DCOM 

EQU 

2022H 

m 

3 

DISK RERD/URITE UIA DOS 


i««« ORIGIN of OmniFORTH »»» 


2000 

2D01 

00 

C3253D 

ORIG NOP 

JMP 

CLD 

; UECTOR TO COLD START 

2004 

2D05 

00 

G3103D 

NOP 

JMP 

URM 

; UECTOR TO UARM START 

2008 

02 

DB 

OMNIREL 

; OmniFORTH RELEASE # 

2009 

03 

DB 

OMNIREU 

; OmniFORTH UERSION # 

2 D0R 

00 

DB 

USRUER 

; USER UERSION # 

2 D0B 

0 E 

DB 

0EH 

; IMPLEMENTATION ATTRIBUTES 

2O0C 

X46 

DU 

DOTCPU-7 

J TOPMOST UORD IN FORTH 

2D0E 

0800 

DU 

BSIN 

; BACKSPACE CHARACTER 

2010 

2010 

2010 

2010 

B87B 

> 

3 

m 

;««« FOLLOUING USED E 
DU IHITR0 

!V COLD »»»> 

J UP USER POINTER 

2012 

187B 

DU 

INITS0 

; S0 STACK POINTER 

2014 

B87B 

DU 

INITR0 

; R0 RETURN STACK POINTER 

2016 

187B 

DU 

INITSI 

; TIB TERMINAL INPUT BUFFER 

2013 

1F00 

DU 

IFH 

; UIDTH MAX UIDTH OF UORDS 

2D1A 

0100 

DU 

1 

; UARNING ERROR WARNINGS 

2 D1C 

8146 

DU 

INITDP 

; FENCE PROTECTED UOCABULRRV 

201 E 

3146 

DU 

INITDP 

; DP DICTIONARY POINTER 

2020 

E63B 

DU 

FORTH+6 

; UOC-LINK UOCABULARV POINTER 

2022 

050020B3 

DU 

5H.0B320H 

; CPU NAME BASE 36 INTEGER 

2026 

2D26 

2026 

2026 

0080 

3 

;««« SPECIAL RECONFIGURATION UALUES »»» 

DU EM ; INIT •'LIMIT-' 

2028 

F87B 

DU 

BUFl 

; INIT 'FIRST' 

2D2A 

0200 

DU 

NBUF 

; INIT 'SBUFF' 

2D2C 

0100 

DU 

1 

; INIT "DENSITY-' 

2D2E 

3A20 

DU 

NEXT 

; ADDRESS OF NEXT 

2030 

00 

KCIN DB 

0 

J KEYBOARD INPUT DEUICE # 

2031 

00 

KCOUT DB 

0 

i KEYBOARD OUTOUT DEUICE # 

2032 

01 

KPOUT DB 

1 

; PRINTER OUTPUT DEUICE # 

2033 

08 

ENACTLC DB 

0 

; YTERMINAL B-JABLE <0=OFF. 1=0N> 

2034 

2034 


■ 

3 

■» 

3 


NOTE: 7TERMINRL USES NORTH STAR 
CONTROL C ENTRY. 
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The average user will be concerned only with a portion of 
this table. Ualues rr^ay be examined and.-'or changed us ins the 
North Star monitor. 

OmniFORTH provides methods to chanae the confiduration 
constants. The remainder of this section will discuss the 
use of OmniFORTH in chandind! 

Input character used for backspacind. 

2 > Enablind Control C and ?TERMIHRL. 

35 Maxiurn memory used by OmniFORTH. 

45 Precompilind additional definitions into the FORTH 
object file. 

fill values used in this section are hexidecimal nuffibers. 

This section is intended for the advanced FORTH user 
especailly, since it should not be necessary for the new 
user to reconfidure except for the input backspace character 
which could be chanded usind the North Star monitor. 

fi very important OmniFORTH word used in this section is 

+ORIGIN adds an offset esuivlent to the bedinnind 
of QnniFORTH to the top of the stack leavind the resultind 
memory address. 


@.3.1 Chandind the Backspace Input Character. 

The procedure is to brind up OmniFORTH^ make the chande at 
acfclress 0E +0RIGIN^ exit OmniFORTH and return to DOS then 
save the object back on disk usind the DOS SF command. 

For example^ to chande the backspace code <0S HEk5 to the 
rubout code <7F HE><: 5 . 

GO FORTH 

OMNIFORTH 2.3 <BfiSED ON FIG-F0RTH5 
COPVWRITE 1979 BV 

INTERRCTIUE COMPUTER S’/STEMS. INC. 

6403 DIMPRCO RD. TRMPR^ FL. 33614 

RLL RIGHTS RESERUED. SxN ######## 

HEX OK 

7F 0E +ORIGIN ! BVE +SF FORTH 2D00 

The input backspace character has now been chanded from 
backspace code <08 HEX5 to the rubout code <7F HEX 5 . 
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0.3.2 Enablinsi the Con-LroX C and ?TER!iIHftL 

OroniFORTH is released with the control-C option disabled so 
that terminals that do not support this mode can function. 
Users that haue altered the control~C routines will need to 
Generate code that will prouide the e'auivalent status ot the 
Zero fla3 specified in the North Star DOS rrianual section ui 

CONTC 

This routine detects if a control-C has been typed on the 
console terminal. No information is passed to the routine in 
any of the re^isters^ and no registers need be saved or 
restored by CONTC. They are all available for urirestricted 
use by the routine. If a control—C has been typed^ the 
routine should set the Zero flas. If no character has been 
typed of if the character typed was not a control-C> then 
the Zero flaa should be cleared instead, fls soon as the Zero 
flasi is aiven its proper valuer CONTC must do a RET. CONTC 
should not wait for a character to be typed. If no character 
has been typed^ it should do a RET immediately after 
clearinai the Zero flaa. 

The North Star CONTC routine also sets the carry flad if 
cTky character has been typed- 

?TERMINflL 

This OmniFORTH word uses the North Star CONTC routine to 
sense if any Mey depression has occurred by testind the 
carry flad after each call to CONTC. If no key has been 
depressed^ ?TERMINftL will put a zero on top of the stack. If 
any key has been depressed?TERMINRL will put a one on the 
stack. ?TERmNRL is supplied disabled on this release of 
OmniFORTH. Vou can enable it by chandind the enable control- 
C reconfiduation value shown for ENflCTLC on the assembly 
listind at location 2D33 hex. 

To enable the control—C and ?TERMINflL 

GO FORTH 

OMNIFORTH 2.3 <BRSED ON FIG-FORTH> 

COPVWRITE 1979 

INTERfiCTIUE COMPUTER SVSTEMS. INC. 

6403 DIMARCO RD. TAMPA. FL. 33614 

ALL RIGHTS RESERUED. S-di ######## 

HEX OK 

1 33 +ORIGIN C! BYE. +SF FORTH 2D00 
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0.3.3 Reconfigure Memory Size ':;mAP> 

OmniFORTH comes configured to run in 24K bytes of memory 
includina DOS. This provides more than enough available work 
space for the average user. 


The foUowina is a diaaram of the OmniFORTH memory map 

OmniFORTH MEMORY MAP 
LIMIT ___ 


FIRST —> 


DISC BUFFERS 


<-- USE 
<— PREU 


UP 

R0 

RP 

se 

SP 


•> 

•> 


—> 

—> 


USER AREA 


5 RETURN STACK 

V 

TERMINAL BUFFER 


<-- 


I 

I 


IN 

TIB 


STACK 


DP 


1 

! TEXT 

I 

1 

BUFFER ; 

1 

UORD 

BUFFER 

I t DICTIONARY i 

! : ! 

J 


1 

t 

I BOOT-UP 

I 

LITERALS \ 

1 


<— PAD 


0 +ORIGIN 
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OnwiiFORTH starts at memory address 2D00 for either the 
sindle or double density North Star DOS versions. 

Remember that the OmniFORTH supplied on the master disk 
allocates tSk bytes of disk storage- When FORTH was saved on 
disk^ a file was created allocating 64 <256 byte> blocks 
which allows enouah space for 16k bytes for FORTH and most 
user applications. The user can extend the supplied FORTH 
vocabulary with applications beyond 16k bytes as needed. If 
your application re-^iuires more space^ be sure to create a 
disk fi1e 1araer than the 64 b1ocks to ho1d FORTH and save 
your veT'Sion usina screen 46 and DOS SF command. 

Screens 25 thru 59 of the OmniFORTH master disk contain 
source for part of the FORTH vocabulary included in this 
t^elease, fi listina of 'screens 25 thru 59 is included at the 
end of this installation manual to assist you in makina 
chanaes and learnina irtore about OmniFORTH. 

Screen 25 and 26 contain the alaorwthm to confiaure memory 
requirements from LIMIT <top of memory+O down to S0 '%top of 
the stack). 

Notes The literals on the screen are the value-s- used to 
conf iaure your 24k systern. 

Most users will only wish to chanae the memory sise which 
can be chanaed by chanaina the 3008 in line 5 of screen 25. 

Line 7 of screen 25 contains a 2 which confiaure-s- two 512 
byte disk buffers. This value must be e-=iual to 2 or areater. 

The followina is a procedure to reconfiaure memory: 

1) Brina up a copy of OmniFORTH. 

2) Execute OmniFORTH by typina: GO FORTH 

3) Use the EDITOR to adjust the confiauration literals on 
screens 25 and 26. 

4) Load screens 25 and 26 by typina: 25 Load <26 will load 
automatically). The present map ha'S not been chanaed 
but the BOOT-UP literals <See OrriniFORTH map) have been 
chanaed. 

5) Return to North Star DOS by typina: BVE 

6) Usina DOS^ save reconfiaured OmniFORTH back on disk by 
typina: SF FORTH 2D00 

7) Brina up reconfiaured OmniFORTH by enterinas GO FORTH 
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0.3.4 Precompiled User Screens 


Precompiling is the ability to load user screens 'COmniFORTH 
source) arid save the expanded Omni FORTH module so it will be 
available the next time that you brina up FORTH. 


fln OmniFORTH user will develop new words which he will want 
to always have available. The user can load the appropriate 
screens each time they brina up OmniFORTH.. which can become 
very time consuroina^ or you may precompile the screens once 
and save them as object code within FORTH. 


Procedure to Precompi1e 

1) Brina up OmniFORTH by typinas GO FORTH 

2) Load your new words from your screens. 


WARNING: OrftniFORTH was saved on disk in an area allocated 
for 16k bytes. FORTH disk file was created with 64 blocks 
of 256 bytes per block aivina 16k bytes of user proaram 
storaae. It is possible for a user to create new 
vocabularies that extend the dictionary beyond the 16k byte 
storaae allocated for FORTH on disk. To determine the size 
of the current memory and storaae necessary to save FORTH 
type: 


HERE 0 +0RIGIN - .. 


If current memory re«iuirement is areater than 16k bytes you 
will have to ao back to DOS and create a file that will be 
larae enouah to save your new FORTH. 


3) Load screen 46 CPrecompiler) by typina: 46 LOAD 

4) Return to DOS by typina: 

S> Save FORTH usina DOS command: SF FORTH 2D00 


The next time you request FORTH it will come up with any new 
words that you have loaded. 
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0.3.5 Remouina Precompiled Words 

Part or all of* the users precompiled uocabulary may be 
remoued from the FORTH object file bys 

1> Dropping the memory protect fence by typinds 0 FEHCE 

2> For^ettina back to and including the word you want to 
remoue by enterinai 

FORTH FORGET word you want to fordet 
35 Load screen 46 ^Precompiler5 by typindi 46 LORD 
45 Return to DOS by typinds BVE 
55 Save FORTH usind DOS command: SF FORTH 2D00 


0.3.6 OmniFORTH Precompiled Screens 

We have precompiled most of the source screens supplied on 
the OmniFORTH disk and have sawed them as part of FORTH. 
These include screens for the EDITOR.* DUMP^ special 
formattind.* TVPEv LIST.* TRIRDj SHOWj and INDEX that are 
supplied on screens 29 thru 44. 

29 has been created as a user load screen and will 
load all of the standard OmniFORTH software. Note that 
screen 29 contains a USER-MRRK and TRSK dummy words which 
ffiark the lower and uPF-er limits of the OmniFORTH wocabulary. 
The user can alter words supplied in screens 29 thru 44 as 
well as create new screens to extend the wocabulary usind 
the EDITOR. 

The user can then fordet a part or all of the OmniFORTH 
wocabulary and reload words that suits his application. For 
examplej* the standard OmniFORTH is supplied with a special 
word OEMIT on screen 30 that maps any character <ewen 
control or non printable5 to be printed into upper case 
flSCII only. If your console can print lower case characters 
you may want to change GEMIT to translate any character to 
either upper or lower case. To do this re‘=iuires that you use 
the EDITOR to chande the mask constant from 95 to 127. Then 
cjpQPPiri^ •^;,Ne memory protect fence.* fordettind the OmniFORTH 
MOcabulary> reloadind screen 29.* and sawind the new 
precompiled wersion by loadind screen 46 and returnind to 
DOS to saue FORTH. 
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To chana© CEMIT to print both upper and lower case fiSCII; 

1> Us© th© EDITOR to chanae CEMIT on scr*€'6‘n 3S 
DECIMfiL EDITOR 38 LIST 
TOP X 95 
C 127 
FLUSH 

2> Drop the protected memory fence: 0 FENCE ! 

3> Foraet lower uocabulary: FORTH FORGET USER-MfiRK 
4> Reload user screens: 29 LORD 
5> Load the precompiler screen: 46 LORD 
6> Return to DOS: BVE 

7> In DOS saw© file FORTH: SF FORTH 2D©0 


0.4 Source Listina for OrnniFORTH 

V 

Screens 25 thru 59 of the OrnniFORTH master disk contain 
source for part of the FORTH vocabulary included in this 
release. R listina of screens 25 thru 59 is included on th© 
followina paaes of this installation manual to assist you in 
mahina chanaes and 1earnina more about OrnniFORTH. 


Screens 25 and 26 contain th© source to reconfiaure memory 
r©«R4ir©m©nts to suit your system. 

Screens 27 and 28 hoid error messaaes that are reference by 
OnrjiFORTH. Vou may extend the messaaes for your application. 

Screen 29 is thie user source screen that was used to load 
OrnniFORTH sources supplied in this release. Vou may alter 
this load screen to include additional definitions and 
screens as you r©«iuir©. Screen 29 is released to load 
special consol© routines., utilities., and the EDITOR. 

Screens 36 thru 44 contain th© source for th© text EDITOR. 

Screen 46 is the precompiler load screen that enables savina 
your application as part of FORTH. 


Screens 48 thru 51 are optional ZS0 assembler instructions 
that may be loaded if needed. These screens ahe not loaded 
with this release of OrnniFORTH. 

Screens 5^ tru 59 are suF-plied as e.xarftPle and work areas to 
test and learn more about th© EDITOR and OrnniFORTH. 
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OMNIFORTH 2.3 INSTALLATION 


25 < MEMORY MAP RECONFIGURATION SCREEN 1. OF 2 > HEX 

26 < MEMORY MAP RECONFIGURATION SCREEN 2 OF 2 > HEX 

27 < ERROR MESSAGES > 

23 < ERROR MESSAGES > 

29 < USER SOURCE LOAD SCREEN > DECIMAL 

30 < CQUIT. CEMIT. TYPE. LIST. TRIAD. SHOW. INDEX > DECIMf^ 

31 < SPECIAL FORMATTING! #D. #H. .2H. .4H. .. > HEX 

32 < UTITLITIES! DUMP. ?S. MODE > HEX 

33 

34 

rrrsr 

36 < TEXT. LINE > 

37 C LINE EDITOR > 

33 < LINE EDITING COMMANDS > 

39 < LINE EDITING COMMANDS > 

40 < LINE EDITING COMMANDS > 

41 C SCREEN EDITING COMMANDS > 

42 < STRING EDITING COMMANDS > HEX 

43 STRING EDITING COMMANDS > HEX 

44 STRING EDITING COMMANDS > HEX 

45 

46 < PRE-COMPILER > DECIMAL 

•4.7^ 

43 C ZS0 ASSEMBLER — OPTIONAL INSTRUCTION SET > HEX 

49 >: ZS0 ASSEMBLER— EXCHANGE. BLOCK TRANSFER. SEARCH GROlff* > >CX 

50 < ZS0 ASSEMBLER — ROTATE. SHIFT. & BIT (2?OUPS > HEX 

51 < ZS0 ASSEMBLER— JMP OPERATORS > HEX 

■ 52-. ' 

. 

54 


57 < EXAMPLE EDIT SCREEN. USE SCREENS 57.58. AND 59 TO TEST > 

58 CQUIT. CEMIT. T^^PE. LIST. TRIAD. SHOW. INDEX > DECIMAL 

59 < USE THIS SCREEN TO HOLD A WORK COPY > 


INDEX OF SCREENS SUPPLIED WITH OmniFORTH 2.3 INSTALLATION 



SCR # 24 
0 
1 


4 

5 

6 
( 

3 

9 

10 

11 

12 

13 

14 

15 


SCR # 25 

0 < MEMORV MAP RECONFIGURATION SCREEN 1 OF 2 > HEX 

1 < BV RDJUSTIl'fll THE LITERIALS AND LOADING/ THEN SPUING THE > 

2 < OBJECT ON DISK THE USER CAN CHANGE MEMORV UTILIZATION. > 

3 < refer to DOCUMENTATION AND USE EXTREME CAUTION, h-hch. > 

5 3000 DUP 26 +ORIGIN ! < '•LIMIT" TOP OF MEMORV +!=(«> 

6 

7 2 DUP 2A +ORIGIN ! < "#BUFF" # OF DISK BUFFERS 

3 

5 200 < BVTES^BUFFER — FIXED FOR NS SYSTEMS >♦'> 

10 4 + :4c - oyp 23 +ORIGIN ! < "FIRST" ADDR OF 1ST BUFFER 

12 —> 

13 

14 

15 


0 < MEMORV MAP RECONFIGURATION SCREEN 2 OF 2 > HEX 
1 

2 40 < USER UARIABLE SPACE *> 

3 - DUP 10 +ORIGIN ! < "UP" START OF USER AREA 

4 

5 DUP 14 +ORIGIN • < "R0" ALSO TOP OF RETURN STACK *> 

s 

7 00R0 >: RETURN STACK & TERMINAL BUFFER SPACE *:> 

3 - DUP 12 +ORIGIN ! -C "S0" TOP OF PARAMETER STACK 

9 

10 16 +ORIGIN ! < "TIB" — TERMINAL INPUT BUFFER 

11 

12 DECIMAL iS 

13 

14 

15 

IHTERACTIUE COMPUTER SYSTEMS. INC. 


OMNIFORTH 2.3 INSTALLATION 



SGR # 27 

0 < ERROR MESSAGES > 

1 EMPTY STROK 

2 DICTIONfiRV FULL 

3 HRS INCORRECT ADDRESS MODE 

4 ISH-'T UNIQUE 

5 ' 

6 DISC RANGE ? 

7 FULL STACK 

8 DISC ERROR ! 

9 

10 

11 

12 

13 

14 

15 INTER ACT IUE COMPUTER S^/STEMS^ INC. OMNIFORTH 2.3 INSTALLATION 


SCR # 23 

0 C ERROR MESSAGES > 

1 COMPILATION ONLY. USE IN DEFINITION 

2 EXECUTION ONLY 

3 CONDITIONALS NOT PAIRED 

4 DEFINITION NOT FINISHED 

5 IN PROTECTED DICTIONARY 

6 USE ONLY UHEN LOADING 

7 OFF CURRENT EDITING SCREEM 
S DECLARE UOCABULARY 

9 

10 

11 

12 

13 

14 

15 


SCR # 29 

0 < USER SOURCE LOAD SCREEN ) DECIMAL 

2 : USER-MARK 5 < DUMMY WORD USED TO MARK USER LOADS 

4 30 LOAD < SPECIAL: TYPE> LIST. TRIAD, SHOW. INDEX > 

5 31 LOAD •; special: FORMATTING ) 

6 32 LOAD < UTILITY: DUMP. ?S. MODE > 

7 36 LOAD < EDITOR > 

8 

9 : TASK ; < TO FORGET PRESENT TASK. DROP FENCE FIRST 

10 

11 DECIMAL iS 

12 

13 

14 

15 

INTERACTIUE COMPUTER SYSTEMS. INC. 


OMNIFORTH 2.3 INSTALLATION 



SCR 

0 

■f 


4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 


# 


30 

CQUIT: 

CQUIT 

CEMIT 

TYPE 

.LINE 

LIST 

.FF 

.M15 

TRIAD 

SHuUt 

INDEX 


CEMIT^ TVPE^ LIST^ TRIAD. SHOW/ INDEX > DECIMAL 

< TEST TERMINAL INTERRUPT. IF CONTROL C QUIT 
TTERMINRL IF KEY 3 = IF SP! QUIT END IF S'IDIF i CR 
•C MRP CHAR TO EMIT. USE 95 FOR UPPB?. 127 FOR BOTH 
95 AND DUP 32 < IF 32 + ENDIF EMIT i 
CQUIT -DUP IF OUER + SWAP < TYPE UNTIL CCM^TI^L 

DO I C« CEMIT LOOP ELSE DROP ENDIF ; 

<LINE> -TRAILING TYPE i 

CR DUP SCR ! SCR # " . < LIST UNTIL CONTROL C 

16 0 DO CR 13 .R SPACE I SCR '8 .LINE LOOP CR S 


12 EMIT S CR 
CR 15 MESSAGE CR J 
- FF 3 3 3 OUER + 

1+ SWAP 3 3 DO I 

1+55 SWAP ROT DO 1+ DUP 55 > IF DROP 0 
CR I 3 .R SPACE 0 I .LINE LOOP DROP .FF 






< EMIT FORM FEED =♦> 
< TYPE MESSAGE 15 =*> 
SWAP DO CR I LIST LOOP .M15 5 
TRIAD 3 +LOOP J 

.FF .M15 ENDIF 
; CR 


SCR # 31 

0 SPECIAL FORMATTING! #D. #H. .2H. .4H. .. > HEX 

1 < CONUERT ONE DECIMAL DIGIT. HOLDING IN PAD h.) 

2 0A M/MOD ROT 9 OUER < IF 7 + ENDIF 30 + HOLD S 

3 < CONUERT ONE HEX DIGIT. HOLDING IN PAD 

4 10 M/MOD ROT 9 OUER < IF 7 + ElOIF 30 + HOLD i 

5 ! .2H 0 <# #H #H #> TYPE SPACE J < 2 DIGIT HEX OUTPUT *> 

6 : .4H 0 <# #H #H #H #H #> TYPE SPACE i <4 DIGIT HEX OUTPUT *> 

7 : 0 <# #S #> TYPE SPACE J! < UNSIGNED EQUIU OF . 

8 DECIMAL iS ur 

9 

10 

11 

12 

13 

14 

15 


;CR 

0 

1 


4 

5 

6 


9 

10 

11 

12 

13 

14 

15 




# 32 

C UTITLITIES! DUMP. ?S. MODE > HEX 

: DUMP CR < MEMORY HEX/ASCII DUMP ROUTINE. RDDR-2. COUNT-1 =♦> 
. " BYTE-> 01 234567 S9AB CDE F" 

01234567S9ABCDEF’* 0 DO CR DUP .4H 

10 0 DO I 7 AND 0as 2 ♦ SPACES DUP C<a .2H 1+ LOOP 2 SPACES 

10 - 10 0 DO DUP C« CEMIT 1+ LOOP 10 +LOOP DROP CR i 

• < NON-DESTRUCTIUE PRINT OUT OF STACK 

S0 8 3P« - 2 - 2 / -DUP CR IF ." STACK HEX DEC" 

0 DO CR SP'S I 2 + + '8 .S” 11+0 <# #D #D #> TYPE * 

DUP .4H SPACE BASE « DECIMAL SWAP 6 .R BASE ! LOOP CR 
ELSE . ■' NOTHING ON STACK " CR ENDIF S 

DECIMAL 

‘ f'lOC'E < PRINTS THE NUMBER BASE 

BASE '8 10 - IF BASE >3 16 - IF ." BRSE<10> = " BASE « 

0 <# #D #D #D #> TYPE SPACE ELSE .HEX " ENDIF 

ELSE ."DECIMAL " ENDIF ; 


He> 


INTERACTIUE COMPUTER SYSTEMS. INC 
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SCR # 33 
3 
1 


4 


6 


9 

10 

11 

12 

13 

14 

15 


SCR #34 
0 
1 


4 

5 

6 


9 

10 

11 

12 

13 

14 

15 


SCR # 35 
0 
1 


4 ■ 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

IHTERfiCTlUE COMPUTER SYSTEMS^ INC. OMNIFORTH 2 


3 INSTRLLflTION 



SCR # 36 

0 < TEXT.. LINE > 


1 FORTH DEFINITIONS HEX 



< RCCEPT FOLLOWING 
HERE C--L H- BLRNKS WORD HERE f=1=© OL 1+ CMOUE 


TEXT TO PRD 


•-INE < RELRTIUE TO SCR, LEflUE ADDRESS OF LINE 

DUP FFF0 AND 17 7ERROR < KEEP ON THIS SCREEN > 

SCR ■! <LINE:) DROP J 

*> 


10 

11 

12 

13 

14 

15 


»♦«> 


SCR # 37 


0 ■: LINE EDITOR > 


1 

2 

3 

4 

5 

6 


UOCABULARV EDITOR IMMEDIATE HEX 

! WHERE < PRINT SCREEN # AND IMAGE OF ERROR 

DUP B.--SCR / DUP SCR ! . " SCR # " DECIMAL . 

SWAP C/L /MOD C/L ROT BLOCK + CR G/L TYPE 
CR HERE C-a - SPACES 5E EMIT CCOMPILE3 EDITOR QUIT S 


7 EDITOR DEFINITIONS 

3 ; #LOCATE < LEAUE CURSOR OFFSET-2, LINE-l *> 

9 R# « C/L /MOD J 

10 : #LEAD < LINE ADDRESS-2, OFFSET-l, LINE-1 

11 #LOCATE LINE SWAP J 

12 : #LAG < CURSOR ADDRESS-2, COUNT-1 AFTER CURSOR 

13 #LEAD DUP >R + C/L R> - Ji 

14 : -MOUE < MOUE IN K-OCK BUFFER ADDR FORM-2, LINE TO-1 =♦) 

15 LINE C/L CMOUE UPDATE ; —> 


SCR # 33 

0 < LINE EDITING COMMANDS > 

1 : H 

2 LINE PAD 1+ C/L DUP PAD C! 

4 : E 

5 LINE C/L BLANKS UPDATE S 

6 


< HOLD NUMBERED LINE AT PAD 
CMOUE J 


< ERASE LINE-1 WITH BLANKS 


f' 

3 

9 

10 

11 

12 

13 

14 

15 


S 

DUP 1 - < LIMIT > 0E 
DO I LINE I 1+ -MOUE 


< SPREAD MAKING LINE # BLANK 
< FIRST TO MOUE > 

1 +LOOP E i 


: D < 

DUP H 0F DUP ROT 
DO I 1 + line I -MOUE LOOP 


DELETE LINE-1, 
E i 


BUT HOLD IN PAD 







!«C> 




INTERACTIUE COMPUTER SYSTEMS, INC. 
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SCR # 39 

0 < LINE EDITING COMMRHDS > 

2 : M < MOUE CURSOR BV SIGNED RMOUNT-1. PRINT ITS LINE 

3 R# +! CR SPACE #LEfiD TVPE 5F EMIT 

4 #LFIG TVPE #LOCfiTE - DROP J 

' 5 ' 

6 : T C TVPE LINE BV #--l> SflUE ALSO IN PAD =*> 

7 DUP C/L * R# ! DUP H @ M J 

8 

3 : \_ <C RE-LIST SCREEN ♦> 

10 SCR « LIST 0 M S 

11 —> 

12 

13 

14 

15 


SCR # 40 

0 < LINE EDITING COMMANDS 

1 I R 

2 ’ PAD 1+ SUAP -MOUE S 

. 3 ■ 

4 : P 

5 1 TEXT R i 

'6 

7 : I 

S DUP S R i 

9 

10 : TOP 

11 0 R# ! ; 

12 “> 

1 '3 

14 

15 


SCR #41 

’^0 < SCREEN EDITING COMMANDS > 

1 : CLEAR < CLEAR SCREEN BV NUMBER-1 

2 SCR ! 10 0 DO FORTH I EDITOR E LOOP i 

4 ; COPV < DUPLICATE SCREEN-2. ONTO SCREEN-I *> 

5 B/SCR ^ OFFSET « + SUAP B-^SCR * B-^SCR OUER + SWAP 

6 DO DUP FORTH I BLOCK 2 - ! 1+ UPDATE LOOP 

7 DROP FLUSH J 

3 “> 

9 

10 

11 

12 

13 

14 

15 

INTERACTIUE COMPUTER SVSTEMS. INC. OMNIFORTH 2.3 INSTALLATION 


< REPLACE ON LINE#-1. FROM PAD 

< PUT FOLLOWING TEXT ON LINE-1 
C INSERT TEXT FROM PAD ONTO LINE # 

< HOME CURSOR TO TOP LEFT OF SCREEN >> 



SCR # 42 

0 STRING EDITING COMMfiHDS > HEX 

1 : ILINE X SCRN LINE WITH CURSOR FOR MRTCH TO PHD TEXT, ♦> 

^ < UPDRTE CURSOR, RETURN BOOLERN 

3 #LRG PAD COUNT MATCH R# +• s 

4 

5 : FIND < STRING AT PAD OUER FULL SCREEN RANGE, F« eg ERROR 

6 BEGIN 3FF R# « < 

7 IP joP PAD HERE C/L 1+ CMOUE 0 ERROR ENDIF 

S ILINE UNTIL ; 

9 

10 s DELETE < BACKWARDS AT CURSOR BV COUNT-1 

11 >R #LAG + FORTH R - < SR«JE BLANK FILL LOCATION > 

12 #LAG R MINUS R# +! C BACKUP CURSOR > 

13 #LERD + SWAP CMOUE 

14 R> BLANKS UPDATE J < FILL FROM END OF TEXT > 

15 DECIMAL —> 


SCR # 43 

8 < STRING EDITING COMMANDS > HEX 


N 


FIND 0 M 


FIND NEXT OCCURANCE OF PREUIOUS TEXT *> 


4 


6 


9 

10 

11 

12 

13 

14 

15 


F 

1 TEXT N J 
B 

PAD C-a MINUS M ^ 


< FIND OCCURANCE OF FOLLOWING TEXT 
< BACKUP CURSOR BV TEXT IN PAD 


X 


1 TE><T FIND PAD C® DELETE 0 M 


< DELETE FOLLOWING TEXT 

m . 




TILL < DELETE ON CURSOR LINE, FROM CURSOR TO TEXT END 

#LEAD + 1 TEXT ILINE 0* 0 ?ERROR 
#LEAD + SWAP - DELETE 0 M i DECIMAL —> 


SLR tt 44 

0 < STRING EDITING COMMANDS > HEX 

1 ■' SPREAD AT CURSOR AND COPV IN THE FOLLOWING TEXT 

2 1 TEXT PAD COUNT 

3 #LAG ROT OUER MIN >R 

4 FORTH R R# +i < BUMP CURSOR ) 

5 R - >R C CHARS TO SAUE > 

6 DUP HERE R CMOUE < FROM OLD CURSOR TO HERE > 

7 HERE #LEAD + R> CMOUE < HERE TO CURSOR LOCATION > 

S R> CMOUE UPDATE < PAD TO OLD CURSOR > 

S 0 M >: LOOK AT NEW LINE > S 

10 TOP FORTH DEFINITIONS DECIMAL FORTH 

11 

12 " EDITOR 6+32 +ORIGIH ! < UOC-LINK > 

13 

14 ;S 

15 


INTERACTIUE COMPUTER SYSTEMS, INC. 
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SCR # 4! 


0 

1 


4 

3 

6 

f" 

3 

9 

10 

11 

12 

13 

14 

15 



SCR # 46 

0 < PRE-COMPILER > DECIMfiL 

1 < THIS SCREEN IS USED TO PRECOMPILE OR SflUE LORDED 

2 < SCREENS SO THAT AT THE NEXT COLD START THE SCREENS 

3 -C WILL flLREADV BE LOADED : 

4 < 1. LORD ALL DESIRED SCREENS 

5< 2. LOAD THIS SCREEN 

5 '.' 3. TVPE BVE 

7 •' 4* IN DOS TYPE — SF FORTH 2D00 

3 

9 LATEST 12 +ORIGIN ! < TOP NFR > 

10 HERE 23 +ORIGIN ! < FENCE > 

11 HERE 30 +ORIGIN ! <DP > 

12 HERE FENCE ! 

13 ;s 

14 

15 


SCR # 47 

0 

4 

X 


4-; 

5 

6 
t 

3 

9 

10 

11 

12 

13 

14 
15, ■ 

INTERACTIUE COMPUTER SYSTEMS.. INC- OMNIFORTH 2- 3 INSTALLATION 


V V V v* X/ 



SCR # 4S 

0 'C ZS0 ASSEMBLER — OPTIONAL INSTRUCTION SET ) HEX 

1 ASSEMBLER DEFINITIONS 

2 

3 3 CONSTANT E 2 CONSTANT D 1 CONSTANT C 0 CONSTANT B 

4 

5 047 CONSTANT lU 04F CONSTANT RF 

6 

7 < 16 BIT LOAD GROUP > 

8 4BED XDP LBCD 5BED XDP LDED 

9 2ADD XDP LIXD 21FD XDP LIVD 7BED XDP LSPD 

10 43ED XDP SBCD 53ED XDP SDED 

11 22DD XDP SIXD 22FD XDP SIVD 73ED XDP SSPD 

12 F9DD DOP SPIX F9FD DOP SPIV 

13 

14 DECIMAL —> 


SCR # 49 

0 < 2S0 ASSEMBLER — EXCHANGE^ BLOCK TRANSFER. SEARCH GROUP > HEX 

2 < EXCHANGE > 

3 8008 OPC EJ< 00D9 OPC EXX 

4 E3DD DOP XTIX E3FD DOP XTIV 

5 < BLOCK TRANSFER > 

6 A0ED DOP LDI A8ED DOP LDD 

7 < SEARCH > 

8 A9ED DOP CPD B9ED DOP CPDR AIED DOP CPU 

9 

10 < 8 BIT ARITH. LOCIC IMMEDIATE > 

11 C6 ALI ADI CE ALI ACI D6 ALI SUI DE ALI S8I 

12 E6 ALI ANI EE ALI XRI F6 ALI ORI FE ALI CPI 

14 DECIMAL —> 

15 


SCR # 50 

0 < ZS0 ASSEMBLER — ROTATE. SHIFT. & BIT GROUPS > HEX 

2 0000 ROP SLC 0010 ROP RL 0008 ROP SRC 0018 ROP RR 

3 0020 ROP SLA 0028 ROP SRA 0038 ROP SRL 

4 6FED DOP RLD 67ED DOP RRD 

5 

6 8040 BOP BIT 0080 BOP RES 00C0 BOP SET 

7* 

8 < INPUT^OUTPUT INSTRUCTIONS > 

9 
10 

11 A2ED DOP INI B2ED DOP INIR AAED DOP IND BAED DOP INDR 

13 R3ED DOP OUTI B3ED DOP OUTIR ABED DOP OUTD BBED DCMP OUTDR 

14 DECIMAL —> 

15 


INTERACTIUE COMPUTER SVSTEMS. INC 
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T:R # 51 

”0 < ZS0 ASSEMBLER—JMP OPERATORS > HEX 


1 

2 00D2 ADR JNC 

3 00E2 ADR JPO 

4 001s ALI JR 

5 0020 ALI JRN2 

6 E9DD DOP PCIX 


11 00C9 OPC RET 


00DR ADR JC 
00EA ADR JPE 
0033 ALI JRC 

E9FD DOP PCIV 


00DC ADR CC 
00E4 ADR CPO 
00D0 OPC RNC 
00ES OPC RPE 


00C2 ADR JNZ 
00F2 ADR JP 
0030 ALI JRNC 

0010 ALI DJNZ 


00C4 ADR CN2 
00F4 ADR CP 
00D8 OPC RC 
00E0 OPC RPO 


12 30CS OPC RZ 

13 00FS OPC RM 

14 

15 FORTH DEFINITIONS DECIMAL 


3 < CALL AND RETURN INSTRUCTIONS 
9 00D4 ADR CNC 
10 00EC ADR CPE 


SCR #52 


0 

1 



O 

9 
10 
11 
12 
1 o 

14 

15 




10 

11 

12 

13 

14 

15 


INTERACTIUE COMPUTER SYSTEMS^ INC. 
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00CH ADR J2 
00FR ADR JM 
0023 ALI JRZ 


00CC ADR CZ 
00FC ADR CM 
00C0 OPC RNZ 
00F0 OPC RP 


INSTALLATION 



SCR # 54 
0 
1 


4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 


SCR # 55 
0 
1 
A, 

3 

4 

5 

6 

•p> 

3 

9 

10 

11 

12 

13 

14 

15 


SCR # 56 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


INTERflCTIUE COMPUTER S’y'STEMS> INC 
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SGR' ’'# - 57 - ^ 

0 < EXRMPLE EDIT SCREEN. USE SCREEr'E 57 ^ 58 > RND 59 TO TEST > 
2 s TAX 5 =♦« 100 V . 5 < E>‘:flMPLE 1 . 4.1 > 

4 : IF .” VES” ELSE ." NO*’ THEN S < EXAMPLE 1 . 5 . 3 > 

5 ' 

6 : MIN OUER OUER > IF SWAP ENDIF DROP J < EXAMPLE 1 . 5.4 > 

8 s ABC 10 0 DO I . LOOP S < EXAMPLE 1 . 5.7 > 

9 " 

10 s X’v'Z 10 0 DO I . 2 +LOOP J C EXAMPLE 1 . 5.7 > 

12 s DUMP CR 1 + SWAP DO I C« . LOOP 1 < EXAMPLE 1 . 5.8 > 

13 V ' 

14 ;s 

15 


SCR # 58 
0 < CQUIT. 
1 s CQUIT 


3 : CEMIT 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


T-.^PE 

.LINE 

LIST 

.FF 

.M15 

TRIAD 

SHOW 

INDEX 


CEMIT. TVPE. LIST. TRIAD. SHOW. INDEX X DECIMAL 

< TEST TERMINAL INTERRUPT. IF CONTROL C QUIT 
'^TERMINAL IF KE'v' 3 = IF SP\ QUIT ENDIF B'lDIF S CR 
< MAP CHAR TO EMIT. USE 95 FOR UPPER. 127 FOR BOTH 
95 AND DUP 32 < IF 32 + ENDIF EMIT : 

CQUIT -DUP IF OUER + SWAP < T’t'PE UNTIL CONTROL C 

DO I C« CEMIT LOOP ELSE DROP ENDIF ; 

<LINE:> -TRAILING Tr'PE i _ ^ ^ 

CR DUP SCR ' ." SCR # '* . < LIST UNTIL CONTROL C 

16 0 DO CR i 3 .R SPACE I SCR >8 .LINE LOOP CR 5 

12 EMIT J CR < EMIT FORM FEED >♦*!> 

CR 15 MESSAGE CR J < T’^'PE MESSAGE 15 

.FF 3 3 =* 3 OUER + SWAP DO CR I LIST LOOP .M 15 i 

1 + Sypip 3 / 3 DO I TRIAD 3 +LOOP S 

1 + 55 SWAP ROT DO 1 + DUP 55 > IF DROP 0 .FF .M 15 ENDIF 
CR i 3 .R SPACE 0 I .LINE LOOP DROP .FF i CR 


SCR # 

0 < USE THIS SCREEN TO HOLD A WORK COPV > 

2 < WHILE VOU LEARN MORE ABOUT THE EDITOR > 

4 ■ 

6 < COP'r" THE SCREEN 'VOU WOULD LIKE TO EDIT INTO THIS SCREEN > 

3 < THEN USE THE EDITOR TO MAKE CHANGES...- GOOD LUCK > 

9 


10 

11 ' 

12 

13 

14 

15 

INTERACTIUE COMPUTER SYSTEMS. INC. OMNIFORTH 2.3 INSTW-LATION 



SCR # 60 

f FROM TO TD • > 

J dISxmbl "SI SS S^t ^ 

3 « UB.XBa.H 0. a UB.XBBLH O. a ^ ^ 

HEKT-SEC #SEC '3 SEC +! LAST SEC <3 
DUP ^0< IF. #SEC +! 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


#SEC « . +,,. - . . 

ELSE DROP THEN #SEC >3 0= 


SiFPJnJI SP' 'f ® .3 RWDSK DISH-ERROR I J 


READ LI MIT SEC >3 #SEC -3 1 

INIT-SEC» 0 SEC ! TOP LIMIT 


DR *3 RWDSK DISK-ERROR ! Jl 
256 DENS I TV >3 1+ ^ k 15EC ! 


Pn'*' NExf-iEC UNTIL . DONE “ 

D^<D DUP l.^b' DENS I TV -8 * + s <. COMPUTE DENS I TV &;DRJUE'> 

^ n F«P '^'^2:K using rRWDSK .'ilJr 

.^WhF D&D dr ! . '• l;uPV disk from ” . D&D DW ' •■ TfT •« > ; rp i 

." RETURN TO CONTINUE " KEV 13 == IF COPV ELSE . " OMIT " THEN J 


SCR 

0 

1 

2 

3 

4 

5 

6 
7 


■#r61 yv:' .:■ / ■: 

< NORTH STAR DOS HARD DISK ERROR PATCH FOR OMNIFORTH > 
! HDERR CR ." HARD DISK ERROR" ABORT J 


HEK 


ASSEMBLER HERE_ *^„|AUE ADDRESS OF ENTRv VoiNT ON STACK > 

| ENTER FORTH HDERR T 

A JMP HERE AT DOS ENTRV POINT FOR HDERR > 


8 DECIMAL 


9 

10 

11 

12 

13 

14 

15 


OMHIFORTH TO STflV nCTIUE AFTER R: HARD'* ■. 
north star DOS SVSTEM SOFTWARE MAHUAL 
pEuTlUN G FOR THE DOS ENTRS-* POINT. TO HDERR. OUR RELEASE HAD 

WITH A C3 <JMP;) FOLLOWED BV TWO BVTES 

^FPn^R^TP--™i^^~-TTPr'^^ store the ADDRESS OF HERE INiTNE 

*.£R0 ByTEp kLUCHTIUNb 201A AND 201B>. 


:SGR^':'4'62 ^''' 

0 < NORTH STAR DISK READ/WRITE INTERRUPT PATCH > HEX 

' " 'T' -if- V ■ ^ ' * 

■A CODE IDI DI NENT JMP r' DlSAPl P TWTPPPt idt'“ ' 

3 rmp -PT c-T i.ic:*.>*T TMI~. ' PioHbLt INTERRUPTS > 

^ • DE .El El NEaT JMF , ENABLE INTERRUPTS > i 

‘ niaB,T,^r-c« r- ' new RERD^-UIRITE DISK ALLOWS INTERRUPTS > 

■ pWhF TA-iCALC - >R bEC <3 DENSITV *3 0= 1+ p> y,j 

DENSITV « IF S0 ELSE 0 THEN - ^ -i k.. 

DRIUE <3 OR : :DI RWDSK :EI DISK-ERROR ! j - 


5 

6 

7 

8 
9 

10 
IT 
1"*^* 

13 

14 DECIMAL 
15. 


PATCH-R,'W 

TTiRKW 
" IS 


JS 


R^w INTO OLD IN OMNIFORTH s 

UPH ^ R/W ! 

CFA ■' 2+ ! i PATCH-RvW ^ 
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SCR 

6 

1 

2 

3 

4 

5 

6 
' 7 , 

3 

10 

11 

. il2^ 

■ 

i'J* 

14 


# 63 

< NORTH STAR REAL TIME CLOCK INTERRUPT EXAMPLE > 

< ASSUMES CLOCK WIRED TO 010.- AND MEMORV AT 0-2 > 


HEX 


0 MARIABLE INTC 


< UARIABLE FOR INTERRUPT COUNTER > 


assembler here ^ SAME ENTRV POINT FOR LATER POKE > 

..“h PUSH PSW PUSH < SAUE REGISTERS USED IN INTERRUPT TASK > 

INTO LHLD H INK INTC SHLD < INGREMENT INTC COUNTER > 
S0, A t'i'Jl 6 OUT < RESET REAL TIME CLOCK FLAG > 

PSW POP H POP El RETI < RESTORE REGISTEFS ENABLE RETURN > 

C3 0 C! 1 ! < POKE JMP TO ENTRV POINT AT LOCATIONS 0-2H > 


: RRM-CLOCK C0 6 P! sEI J 
DECIMAL iS 


< ARM NORTH STAR CLOCK INTERRUPT > 


SCR 

0 

1 

2 


•j* 

4 

5' 

. . 6 - 

7 

8 
9 

10 

11 

, 12 ; 

13 

14 

15 


#64 

< INTERRUPT WITH FORTH RESPONSE EXAMPLE 8088 /• 280 MODE 0 > HEX 

CODE sRETI < DISABLE. RESTORE REGISTERS. ENABLE. & RETURN > 

DI PSW POP I POP W POP H POP El RETI 

! INTI .*• INTERRUPT 1" CR :RETI i < FORTH RESPONSE TO 1 RST > 

ASSEMBLER HERE < SAUE UECTOR ADDRESS ON STACK. POKE LATER > 

H PUSH W PUSH I PUSH PSW PUSH El < SAUE REGISTERS > 

'' INTI I LXI NEXT JMP < F'OINT TO INTI FOF:TH RESPONSE > 

C3 A C A ' C POKE JMP TO UECTOR ADDR AT LOCATION 8-10H > 


CODE sRSTl 1 RST NEXT JMP 


< USE TO TEST INTERRUPT 1 > 


DECIMAL iS 


SCR # 6?^* 

ei < NONMASKABLE INTERRUPT TO FORTH ABORT ROUTINE > HEX 

2 : MMI CR ." NMI" ABORT i < NONMASKABLE INTERRUPT TASK: ABORT > 
3' 

4 assembler HERE X SAUE UECTOR ADDRESS ON STACK. POKE LATER > 

Pi EI •' >#« I LXI NEXT JMP C ENABLE AND POINT TO NMI > 

4 C3 C- ^ ^ POKE -JHP TO UECTOR ADDR AT LOGATION 66-6SH > 

t . 

8 DECIMAL 5S 

■' 9- ■ 

NOTE: REGISTERS FfRE NOT SAUEC^ AND RESTORED BV THIS ROUTINE 
BECAUSE ABORT CREATES A NEW ENUIROMENT. 


10 

11 

12 

■r:f 

. 

14 

15 


13 THE ENABLE INTERRUPT SERUES TO KEEP OTHER TASKS THAT VOU 
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